home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / cdecl / load.scm < prev    next >
Text File  |  1990-05-31  |  827b  |  34 lines
  1. (define xlib-env (make-locale scheme-env 'xlib-env))
  2. (load '(cdecl compat) xlib-env)
  3. (load '(cdecl cdecl) xlib-env)
  4. (load '(cdecl const) xlib-env)
  5. (load '(cdecl extern) xlib-env)
  6. (load '(cdecl typedef) xlib-env)
  7. (set (repl-env) xlib-env)
  8. (set (working-directory) "~/xlib")
  9. #|
  10. (define xd '("$XLIB/X.cdecl"
  11.          "$XLIB/Xatom.cdecl"
  12.          "$XLIB/Xlib.cdecl"
  13.          "$XLIB/Xresource.cdecl"
  14.          "$XLIB/Xutil.cdecl"
  15.          "$XLIB/Xkeysym.cdecl"
  16.          "$XLIB/Xcursorfont.cdecl"))
  17.  
  18. (define xdp 
  19.   '("$XLIB/xws2.cdecl" 
  20.     "$XLIB/xws3.cdecl" 
  21.     "$XLIB/xws4.cdecl" 
  22.     "$XLIB/xws5.cdecl" 
  23.     "$XLIB/xws6.cdecl" 
  24.     "$XLIB/xws7.cdecl" 
  25.     "$XLIB/xws8.cdecl" 
  26.     "$XLIB/xws9.cdecl" 
  27.     "$XLIB/xws10.cdecl" ))
  28.  
  29. (main `(cdecl "xlib" "-const" ,@xd))
  30. (main `(cdecl "xlib" "-typedef" ,@xd))
  31. (main `(cdecl "xlib" "-extern" ,@xdp))
  32. |#
  33.  
  34.